home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 4 / Precision Software Applications Silver Collection Volume 4 (1993).iso / stats / mathx30.exe / CONVERT.UTL next >
Text File  |  1991-07-11  |  35KB  |  1,521 lines
  1. | CONVERT.UTL |
  2. Z''=INFO:z'''=int((z''-int(z''/10000)*10000)/1000):if z'''=0}1
  3. | COPYRIGHT 1991 BY DAVID DENKER, Box 115, Isanti, Mn. 55040 |
  4. DSP N" SORRY, THIS FILE CAN ONLY BE RUN ON MATH EXTRA!"N
  5. WAIT5:QUIT
  6. #1
  7. TITLE= CONVERSION PROGRAM 
  8. SAVM TEMP
  9. SAVV TEMP
  10. hoff
  11. windd bb4bf15b14f0; DISCLAIMER: 
  12.     Even though I have tested all calculations 
  13.  and  believe them to be accurate,  I  do  not
  14.  guarantee their accuracy.   Your  use  of the
  15.  information  provided  by  this program is at
  16.  your own risk.  If you are using this program
  17.  to make important calculations, I suggest you
  18.  check the degree of accuracy with a different
  19.  source.
  20. ;f4;    Hit any key or mouse button to continue.;X
  21. wait50
  22. $Y="   PAGE UP   "
  23. $z="  PAGE DOWN  "
  24. f=0
  25. boff:cls:digl5:digr5:xon:wlcc f14b0:GOTO110
  26.  
  27. #70
  28. hoff
  29. LODM TEMP
  30. LODV TEMP
  31. DEL TEMP.VAR
  32. DEL TEMP.MEM
  33. QUIT
  34.  
  35. #80
  36. n=data t{0,5*(n-32)/9,5*(n-32)/9+273
  37. ,9*n/5+32,n+273,n-273,(n-273)*9/5+32}:m=1:digr2:xoff
  38. $w=;° Fahrenheit;
  39. if t=3}r:if t=6}r
  40. $w=;° Celsius;
  41. if t=1}r:if t=5}r
  42. $w=;° Kelvin;:ret
  43.  
  44. #90:moff:woff:n=0
  45. dprn n$v"  to "$wn" Number to be converted: ":n=inp
  46. dprn n" ANSWER = ":if m=0}c80:dprn(n*m)$wn:digr5:xon
  47. head b0f14; "C"onvert,  else QUIT ;
  48.  
  49. #91:mset80:mon2
  50. call400:if r=4}}if k=2}110:IF r=5}}if i<10012}110:go70
  51.  
  52. #92
  53. windd wr(x)wc(y)r3c20" FROM: "nnnnnnnnnnnnnnnnnnnnn
  54. wdsp l1$an$bn$cn$dn$en$fn$gn$hn$in$jn$kn$ln$mn$nn$on$pn$qn$rn$sn$tn
  55. call100:$v=$(j):ret
  56.  
  57. #93
  58. windd wr(x)wc(y)r3c40" TO: "nnnnnnnnnn
  59. wdsp l1$an$bn$cn$dn$en$fn$gn$hn$in$jn$kn$ln
  60. call100:$w=$(j):ret
  61.  
  62. #99:j=data k{1,1,2,3,0,4,5,6,6,6,7,7,8,8,9,9,10,10,11,12,0,0,12,0,12,0}
  63. r=0:ret
  64.  
  65. #100
  66. i=mlin:if i>99}100
  67. #101:k=kyck:if k<>0}102
  68. i=mlin:if i=0}101:if i>99}104:if i>x-2}101:if i=j}101:j=i:go103
  69. #102:if k=13}105:if k=27}70:if k=273}106:if k=281}107:if k=275}108
  70. if k=272}}if j>0}}j=j-1:if k=280}}if j<x-2}}j=j+1:if f=0}103
  71. if k>64}}if k<91}}k=k+32:if k>96}}if k<123}109
  72. #103:wlcc L(j):goto101
  73. #104:i=i-int(i/100)*100:j=i
  74. #105:r=0:ret
  75. #106:r=1:ret:|page up|
  76. #107:r=2:ret:|page down|
  77. #108:r=3:j=1:ret:|<--|
  78. #109:r=4:k=k-97:ret:|A to Z|
  79.  
  80. #110:mon2:head b0f14; Pick by the LETTER or use  CURSOR keys or MOUSE. 
  81.   Hit ESC to quit.;
  82. j=0:x=15:windd wr(x)wc11r3c5bb1bf15b3f0" GROUP: 
  83.  A, B
  84.  C
  85.  D
  86.  F
  87.  G
  88.  H, I, J
  89.  K, L
  90.  M, N
  91.  O, P
  92.  Q, R
  93.  S
  94.  T, W, Y
  95.   [ESC]"
  96. #111:f=1:CALL100:f=0:if r=4}c99:if j=0}110
  97. if r=0}112:if r=4}112:go110
  98. #112
  99. head b0f14; Pick using  CURSOR keys or MOUSE. 
  100.   Hit ESC to quit.;
  101. on(j)g{115,130,150,165,180,200,220,240,260,280,300,320,70}:go70
  102.  
  103. #115
  104. $a=" Acres"
  105. $b=" Acre-feet"
  106. $c=" Ares"
  107. $d=" Atmospheres"
  108. $e=" Barrels-oil"
  109. $f=" Barrels-cement"
  110. $g=" Bags-cement"
  111. $h=" B.T.U."
  112. $i=" B.T.U./min."
  113. $j=" Bushels"
  114. $k=" Bushels (Imp.)"
  115. $l=$z
  116. j=0:x=14:y=18:call92:if r=2}130:if r=3}110
  117. on(j)g{117,118,127,119,120,121,122,123,124,126,125,130}:go110
  118.  
  119. #117:|acres|
  120. $a=" Square feet"
  121. $b=" Hectares"
  122. $c=" Square meters"
  123. $d=" Square miles"
  124. $e=" Square rods"
  125. $f=" Square yards"
  126. j=0:x=8:y=17:call93:if j=0}115:if r=3}115
  127. m=data j{0,43560,.4046849,4046.8564,.001562,160,4840}:goto90
  128.  
  129. #118:|acre-feet|
  130. $a=" Cubic feet"
  131. $b=" Gallons"
  132. $c=" Cubic meters"
  133. j=0:x=5:y=16:call93:if j=0}115:if r=3}115
  134. m=data j{0,43560,325851.426,1233.48186}:goto90
  135.  
  136. #119:|atmospheres|
  137. $a=" Cms. of mercury (0°C)"
  138. $b=" Inches of mercury (32°F)"
  139. $c=" Feet of water (60°F)"
  140. $d=" Kgs./sq.meter"
  141. $e=" Lbs./sq.inch"
  142. $f=" Tons/sq.ft."
  143. j=0:x=8:y=28:call93:if j=0}115:if r=3}115
  144. m=data j{0,76,29.921307,33.933965,10332.3,14.696,1.05811}:goto90
  145.  
  146. #120:|barrels-oil|
  147. $a=" Gallons-oil"
  148. $b=" Liters-oil"
  149. j=0:x=4:y=15:call93:if j=0}115:if r=3}115
  150. m=data j{0,42,158.982852}:goto90
  151.  
  152. #121:|barrels-cement|
  153. $a=" Bags-cement"
  154. $b=" Pounds-cement"
  155. $c=" Kgs-cement"
  156. j=0:x=5:y=17:call93:if j=0}115:if r=3}115
  157. m=data j{0,4,376,170.550742}:goto90
  158.  
  159. #122:|bags-cement|
  160. $a=" Pounds-cement"
  161. $b=" Kgs-cement"
  162. j=0:x=4:y=17:call93:if j=0}115:if r=3}115
  163. m=data j{0,94,42.637686}:goto90
  164.  
  165. #123:|B.T.U.|
  166. $a=" Kilogram-calories"
  167. $b=" Foot-lbs."
  168. $c=" Horsepower-hrs."
  169. $d=" Joules"
  170. $e=" Kilogram-meters"
  171. $f=" Kilowatt-hrs."
  172. j=0:x=8:y=21:call93:if j=0}115:if r=3}115
  173. m=data j{0,.252,777.649,.000392752,1054.35,107.514,.000292875}:goto90
  174.  
  175. #124:|B.T.U./min|
  176. $a=" Foot-lbs./sec."
  177. $b=" Horsepower"
  178. $c=" Kilowatts"
  179. $d=" Watts"
  180. j=0:x=6:y=18:call93:if j=0}115:if r=3}115
  181. m=data j{0,12.960817,.02355556,.0175725,17.5725}:goto90
  182.  
  183. #125:|bushels (imp)|
  184. $a=; Cubic inches;
  185. $b=; Cubic meters;
  186. $c=; Gallons;
  187. $d=; Pecks;
  188. j=0:x=6:y=16:call93:if j=0}115:if r=3}115
  189. m=data j{0,2219.36,.036,8,4}:goto90
  190.  
  191. #126:|bushels|
  192. $a=; Cubic feet;
  193. $b=; Cubic inches;
  194. $c=; Cubic meters;
  195. $d=; Liters;
  196. $e=; Pecks;
  197. $f=; Pints (dry);
  198. $g=; Quarts (dry);
  199. j=0:x=9:y=16:call93:if j=0}115:if r=3}115
  200. m=data j{0,1.244456,2150.42,.03523907,35.23808,4,64,32}:goto90
  201.  
  202. #127:|ares|
  203. $a=; Centare;
  204. $b=; Hectare;
  205. $c=; Square meters;
  206. $d=; Square yards;
  207. j=0:x=6:y=17:call93:if j=0}115:if r=3}115
  208. m=data j{0,100,.001,100,119.599}:goto90
  209.  
  210. #130
  211. $a=$y
  212. $b=; Centares (Centiares);
  213. $c=; Centigrams;
  214. $d=; Centiliters;
  215. $e=; Centimeters;
  216. $f=; Centimeters of mercury (0°C);
  217. $g=; Centimeters/sec.;
  218. $h=; Cubic centimeters;
  219. $i=; Cubic feet;
  220. $j=; Cubic feet/min.;
  221. $k=; Cubic feet/sec.;
  222. $l=; Cubic inches;
  223. $m=; Cubic meters;
  224. $n=; Cubic yards;
  225. $o=; Cubic yards/min.;
  226. $p=$z
  227. j=0:x=18:y=32:call92:if r=1}115:if r=2}150:if r=3}110
  228. on(j)g{115,132,133,134,135,136,137,139,140,141,142,143,144,145,146,150}
  229. go110
  230.  
  231. #132:|centares|
  232. $a=; Ares;
  233. $b=; Square feet;
  234. $c=; Square meters;
  235. j=0:x=5:y=17:call93:if j=0}130:if r=3}130
  236. m=data j{0,.001,10.7639,1}:goto90
  237.  
  238. #133:|centigrams|
  239. $a=; Grams;
  240. $b=; Grains;
  241. j=0:x=4:y=10:call93:if j=0}130:if r=3}130
  242. m=data j{0,.01,.1543236}:goto90
  243.  
  244. #134:|centiliters|
  245. $a=; Cubic inches;
  246. $b=; Fluidounces;
  247. $c=; Liters;
  248. j=0:x=5:y=16:call93:if j=0}130:if r=3}130
  249. m=data j{0,.610254,.3381497,.01}:goto90
  250.  
  251. #135:|centimeters|
  252. $a=; Inches;
  253. $b=; Meters;
  254. $c=; Millimeters;
  255. j=0:x=5:y=15:call93:if j=0}130:if r=3}130
  256. m=data j{0,1/2.54,.01,10}:goto90
  257.  
  258. #136:|cms of mercury|
  259. $a=; Atmospheres;
  260. $b=; Feet of water (60°F);
  261. $c=; Kgs./sq.meter;
  262. $d=; Lbs./sq.ft.;
  263. $e=; Lbs./sq.inch;
  264. j=0:x=7:y=24:call93:if j=0}130:if r=3}130
  265. m=data j{0,.0131579,.4461,135.951,27.845,.193368}:goto90
  266.  
  267. #137:|cms/sec|
  268. $a=; Feet/min.;
  269. $b=; Feet/sec.;
  270. $c=; Kilometers/hr.;
  271. $d=; Meters/min.;
  272. $e=; Miles/hr.;
  273. $f=; Miles/min.;
  274. j=0:x=8:y=18:call93:if j=0}130:if r=3}130
  275. m=data j{0,1.968504,.0328084,.036,.6,.02236936,.0003728227}:goto90
  276.  
  277. #139:|cubic cms|
  278. $a=; Cubic feet;
  279. $b=; Cubic inches;
  280. $c=; Cubic meters;
  281. $d=; Cubic yards;
  282. $e=; Gallons;
  283. $f=; Liters;
  284. $g=; Pints (liq.);
  285. $h=; Quarts (liq.);
  286. j=0:x=10:y=17:call93:if j=0}130:if r=3}130
  287. m=data j{0,3.5314667E-5,.06102374,1E-6,1.3079506E-6,2.6417205E-4,.001,
  288. .002113376,.001056688}
  289. goto90
  290.  
  291. #140:|cubic feet|
  292. $a=; Cubic centimeters;
  293. $b=; Cubic inches;
  294. $c=; Cubic meters;
  295. $d=; Cubic yards;
  296. $e=; Gallons;
  297. $f=; Liters;
  298. $g=; Pints (liq.);
  299. $h=; Quarts (liq.);
  300. j=0:x=10:y=22:call93:if j=0}130:if r=3}130
  301. m=data j{0,28320,1728,.02831685,.03704,7.48052,28.31605,59.844156,29.922078}
  302. goto90
  303.  
  304. #141:|cubic ft/min|
  305. $a=; Cubic cms./sec.;
  306. $b=; Gallons/sec.;
  307. $c=; Liters/sec.;
  308. $d=; Lbs.of water/min.;
  309. j=0:x=6:y=22:call93:if j=0}130:if r=3}130
  310. m=data j{0,471.94744,.1246753,.471934,62.4262}:goto90
  311.  
  312. #142:|cubic ft/sec|
  313. $a=; Millions gals./day;
  314. $b=; Gallons/min.;
  315. j=0:x=4:y=22:call93:if j=0}130:if r=3}130
  316. m=data j{0,.646317,448.831}:goto90
  317.  
  318. #143:|cubic inches|
  319. $a=; Cubic centimeters;
  320. $b=; Cubic feet;
  321. $c=; Cubic meters;
  322. $d=; Cubic yards;
  323. $e=; Gallons;
  324. $f=; Liters;
  325. $g=; Pints (liq.);
  326. $h=; Quarts (liq.);
  327. j=0:x=10:y=21:call93:if j=0}130:if r=3}130
  328. m=data j{0,16.38706,5.787E-4,1.638706E-5,2.143347E-5,.004329,.01638661,
  329. .03463,.01732}
  330. goto90
  331.  
  332. #144:|cubic meters|
  333. $a=; Cubic centimeters;
  334. $b=; Cubic feet;
  335. $c=; Cubic inches;
  336. $d=; Cubic yards;
  337. $e=; Gallons;
  338. $f=; Liters;
  339. $g=; Pints (liq.);
  340. $h=; Quarts (liq.);
  341. j=0:x=10:y=21:call93:if j=0}130:if r=3}130
  342. m=data j{0,1E6,35.314666,61023.743,1.3079506,264.17205,1E3,2113,1057}:goto90
  343.  
  344. #145:|cubic yards|
  345. $a=; Cubic centimeters;
  346. $b=; Cubic feet;
  347. $c=; Cubic inches;
  348. $d=; Cubic meters;
  349. $e=; Gallons;
  350. $f=; Liters;
  351. $g=; Pints (liq.);
  352. $h=; Quarts (liq.);
  353. j=0:x=10:y=21:call93:if j=0}130:if r=3}130
  354. m=data j{0,764554.87,27,46656,.7645.5487,201.974,764.65335,1616,807.9}:goto90
  355.  
  356. #146:|cubic yards/min|
  357. $a=; Cubic feet/sec.;
  358. $b=; Gallons/sec.;
  359. $c=; Liters/sec.;
  360. j=0:x=5:y=19:call93:if j=0}130:if r=3}130
  361. m=data j{0,.45,3.366234,12.74222}:goto90
  362.  
  363. #150
  364. $a=$y
  365. $b=; Decigrams;
  366. $c=; Deciliters;
  367. $d=; Decimeters;
  368. $e=; Degrees (angle);
  369. $f=; Degrees/sec.;
  370. $g=; Dekagrams;
  371. $h=; Dekaliters;
  372. $i=; Dekameters;
  373. $j=; Drams;
  374. $k=$z
  375. j=0:x=13:y=19:call92:if r=1}130:if r=2}165:if r=3}110
  376. on(j)g{130,152,153,154,155,156,157,158,159,160,165}:go110
  377.  
  378. #152:|decigrams|
  379. $w=; Grams;:m=.1:goto90
  380.  
  381. #153:|deciliters|
  382. $w=; Liters;:m=.1:goto90
  383.  
  384. #154:|decimeters|
  385. $w=; Meters;:m=.1:goto90
  386.  
  387. #155:|degrees|
  388. $a=; Grads;
  389. $b=; Minutes (angle);
  390. $c=; Radians;
  391. $d=; Seconds (angle);
  392. j=0:x=6:y=19:call93:if j=0}150:if r=3}150
  393. m=data j{0,100/90,60,pi/180,3600}:goto90
  394.  
  395. #156:|degrees/sec|
  396. $a=; Radians/sec.;
  397. $b=; Revolutions/min.;
  398. $c=; Revolutions/sec.;
  399. j=0:x=5:y=20:call93:if j=0}150:if r=3}150
  400. m=data j{0,.01745,.16666667,.002777778}:goto90
  401.  
  402. #157:|dekagrams|
  403. $w=; Grams;:m=10:goto90
  404.  
  405. #158:|dekaliters|
  406. $w=; Liters;:m=10:goto90
  407.  
  408. #159:|dekameters|
  409. $w=; Meters;:m=10:goto90
  410.  
  411. #160:|drams|
  412. $a=; Grains;
  413. $b=; Ounces;
  414. $c=; Grams;
  415. j=0:x=5:y=10:call93:if j=0}150:if r=3}150
  416. m=data j{0,27.34375,.0625,1.771845}:goto90
  417.  
  418. #165
  419. $a=$y
  420. $b=; Fathoms;
  421. $c=; Feet;
  422. $d=; Feet of water (60°F);
  423. $e=; Feet/min.;
  424. $f=; Feet/sec.;
  425. $g=; Fluidounces;
  426. $h=; Fluidounces (Imp.);
  427. $i=; Fluidrams;
  428. $j=; Fluidrams (Imp.);
  429. $k=; Foot-pounds;
  430. $l=; Foot-pounds/min.;
  431. $m=; Foot-pounds/sec.;
  432. $n=; Furlongs;
  433. $o=$z
  434. j=0:x=17:y=24:call92:if r=1}150:if r=2}180:if r=3}110
  435. on(j)g{150,167,168,169,170,171,176,177,178,179,173,174,175,172,180}:go110
  436.  
  437. #167:|fathoms|
  438. $a=; Feet;
  439. $b=; Meters;
  440. $c=; Yards;
  441. j=0:x=5:y=10:call93:if j=0}165:if r=3}165
  442. m=data j{0,6,1.8288,2}:goto90
  443.  
  444. #168:|feet|
  445. $a=; Centimeters;
  446. $b=; Inches;
  447. $c=; Meters;
  448. $d=; Yards;
  449. j=0:x=6:y=15:call93:if j=0}165:if r=3}165
  450. m=data j{0,30.48,12,.3048,1/3}:goto90
  451.  
  452. #169:|ft of water|
  453. $a=; Atmospheres;
  454. $b=; Inches of mercury (32°F);
  455. $c=; Kgs./sq.meter;
  456. $d=; Lbs./sq.ft.;
  457. $e=; Lbs./sq.inch;
  458. j=0:x=7:y=28:call93:if j=0}165:if r=3}165
  459. m=data j{0,.029469,.882646,304.791,62.4262,.433515}:goto90
  460.  
  461. #170:|ft/min|
  462. $a=; Centimeters/sec.;
  463. $b=; Feet/sec.;
  464. $c=; Kilometers/hr.;
  465. $d=; Meters/min.;
  466. $e=; Miles/hr.;
  467. j=0:x=7:y=20:call93:if j=0}165:if r=3}165
  468. m=data j{0,.508,.01666667,.018288,.3048,.01136363}:goto90
  469.  
  470. #171:|ft/sec|
  471. $a=; Centimeters/sec.;
  472. $b=; Kilometers/hr.;
  473. $c=; Knots;
  474. $d=; Meters/min.;
  475. $e=; Miles/hr.;
  476. $f=; Miles/min.;
  477. j=0:x=8:y=20:call93:if j=0}165:if r=3}165
  478. m=data j{0,30.48,1.09728,.05924838,18.288,.6818182,.01136363}:goto90
  479.  
  480. #172:|furlongs|
  481. $a=; Miles;
  482. $b=; Rods;
  483. j=0:x=4:y=9:call93:if j=0}165:if r=3}165
  484. m=data j{0,.125,40}:goto90
  485.  
  486. #173:|ft-lbs|
  487. $a=; B.T.U.;
  488. $b=; Horsepower-hrs.;
  489. $c=; Joules;
  490. $d=; Kilogram-calories;
  491. $e=; Kilogram-meters;
  492. $f=; Kilowatt-hrs.;
  493. j=0:x=8:y=21:call93:if j=0}165:if r=3}165
  494. m=data j{0,.00128593,1/198E4,1.35582,3.24048E-4,.138255,3.76617E-7}:goto90
  495.  
  496. #174:|ft-lbs/min|
  497. $a=; B.T.U./min.;
  498. $b=; Foot-pounds/sec.;
  499. $c=; Horsepower;
  500. $d=; Kg.-calories/min.;
  501. $e=; Kilowatts;
  502. j=0:x=7:y=21:call93:if j=0}165:if r=3}165
  503. m=data j{0,.00128593,1/60,1/33000,3.24048E-4,2.2597E-5,}:goto90
  504.  
  505. #175:|ft-lbs/sec|
  506. $a=; B.T.U./min.;
  507. $b=; Horsepower;
  508. $c=; Kg.-calories/min.;
  509. $d=; Kilowatts;
  510. j=0:x=6:y=21:call93:if j=0}165:if r=3}165
  511. m=data j{0,.0771558,1/550,.01944288,.00135582}:goto90
  512.  
  513. #176:|fluidounces|
  514. $a=; Cubic inches;
  515. $b=; Fluidrams;
  516. $c=; Milliliters;
  517. j=0:x=5:y=16:call93:if j=0}165:if r=3}165
  518. m=data j{0,1.804,8,29.573}:goto90
  519.  
  520. #177:|fluidounces (imp)|
  521. $a=; Cubic centimeters;
  522. $b=; Cubic inches;
  523. $c=; Fluidrams;
  524. j=0:x=5:y=21:call93:if j=0}165:if r=3}165
  525. m=data j{0,28.416,1.7339,8}:goto90
  526.  
  527. #178:|fluidrams|
  528. $a=; Cubic inches;
  529. $b=; Milliliters;
  530. $c=; Minims;
  531. j=0:x=5:y=16:call93:if j=0}165:if r=3}165
  532. m=data j{0,.225,3.696,60}:goto90
  533.  
  534. #179:|fluidrams (imp)|
  535. $a=; Cubic centimeters;
  536. $b=; Cubic inches;
  537. $c=; Minims;
  538. j=0:x=5:y=21:call93:if j=0}165:if r=3}165
  539. m=data j{0,3.5516,.216734,60}:goto90
  540.  
  541. #180
  542. $a=$y
  543. $b=; Gallons;
  544. $c=; Gallons (Imperial);
  545. $d=; Gallons water;
  546. $e=; Gallons/min.;
  547. $f=; Gallons water/min.;
  548. $g=; Gills;
  549. $h=; Gills (Imperial);
  550. $i=; Grads;
  551. $j=; Grains (troy);
  552. $k=; Grains/gallon;
  553. $l=; Grains/Imp.gallon;
  554. $m=; Grams;
  555. $n=; Grams/centimeter;
  556. $o=; Grams/cu.centimeter;
  557. $p=; Grams/liter;
  558. $q=$z
  559. j=0:x=19:y=23:call92:if r=1}165:if r=2}200:if r=3}110
  560. on(j)g{165,182,183,184,185,186,194,195,196,187,188,189,190,191,192,193,200}
  561. go110
  562.  
  563. #182:|gallons|
  564. $a=; Cubic centimeters;
  565. $b=; Cubic feet;
  566. $c=; Cubic inches;
  567. $d=; Cubic meters;
  568. $e=; Cubic yards;
  569. $f=; Liters;
  570. $g=; Pints (liq.);
  571. $h=; Quarts (liq.);
  572. $i=; Imperial gallons;
  573. j=0:x=11:y=21:call93:if j=0}180:if r=3}180
  574. m=data j{0,3785.306,.1336.80555,231,.003785306,.004951132,3.785306,8,4,.83267}
  575. goto90
  576.  
  577. #183:|gallons (imp)|
  578. $a=; Cubic inches;
  579. $b=; Liters;
  580. $c=; Quarts (Imp);
  581. $d=; U.S. Gallons;
  582. j=0:x=6:y=16:call93:if j=0}180:if r=3}180
  583. m=data j{0,277.42,4.545,4,1.20095}:goto90
  584.  
  585. #184:|gallons water|
  586. $w=; Pounds of water;:m=8.3453:goto90
  587.  
  588. #185:|gallons/min|
  589. $a=; Cubic feet/sec.;
  590. $b=; Liters/sec.;
  591. $c=; Cu.ft./hr.;
  592. j=0:x=5:y=19:call93:if j=0}180:if r=3}180
  593. m=data j{0,.002228009,.06308842,8.020832}:goto90
  594.  
  595. #186:|gallons water/min|
  596. $w=; Tons water/24 hrs.;:m=6.0086:goto90
  597.  
  598. #187:|grains (troy)|
  599. $a=; Grams;
  600. $b=; Pennyweights (troy);
  601. $c=; Ounces (troy);
  602. j=0:x=5:y=23:call93:if j=0}180:if r=3}180
  603. m=data j{0,.0647989,.04166667,.0020833}:goto90
  604.  
  605. #188:|grains/gallon|
  606. $a=; Parts/million;
  607. $b=; Lbs./million gal.;
  608. j=0:x=4:y=21:call93:if j=0}180:if r=3}180
  609. m=data j{0,17.118,142.86}:goto90
  610.  
  611. #189:|grains/imp gallon|
  612. $w=; Parts/million;:m=14.254:goto90
  613.  
  614. #190:|grams|
  615. $a=; Dynes;
  616. $b=; Grains;
  617. $c=; Kilograms;
  618. $d=; Milligrams;
  619. $e=; Ounces;
  620. $f=; Ounces (troy);
  621. $g=; Pounds;
  622. j=0:x=9:y=17:call93:if j=0}180:if r=3}180
  623. m=data j{0,980.7,15.43,.001,1000,.03527396,.03215074,.0022046226}:goto90
  624.  
  625. #191:|grams/cm|
  626. $w=; Pounds/inch;:m=.00559974:goto90
  627.  
  628. #192:|grams/cubic cm|
  629. $a=; Pounds/cubic foot;
  630. $b=; Pounds/cubic inch;
  631. j=0:x=4:y=21:call93:if j=0}180:if r=3}180
  632. m=data j{0,62.427961,.036127292}:goto90
  633.  
  634. #193:|grams/liter|
  635. $a=; Grains/gal.;
  636. $b=; Pounds/1000 gals.;
  637. $c=; Pounds/cubic foot;
  638. $d=; Parts/million;
  639. j=0:x=6:y=21:call93:if j=0}180:if r=3}180
  640. m=data j{0,58.417,8.345,.062427,1000}:goto90
  641.  
  642. #194:|gills|
  643. $a=; Cubic inches;
  644. $b=; Fluidounces;
  645. $c=; Milliliters;
  646. j=0:x=5:y=16:call93:if j=0}180:if r=3}180
  647. m=data j{0,7.218,4,118.291}:goto90
  648.  
  649. #195:|gills (imp)|
  650. $a=; Cubic centimeters;
  651. $b=; Cubic inches;
  652. $c=; Fluidounces;
  653. j=0:x=5:y=21:call93:if j=0}180:if r=3}180
  654. m=data j{0,142.066,8.669,5}:goto90
  655.  
  656. #196:|grads|
  657. $a=; Degrees;
  658. $b=; Radians;
  659. j=0:x=4:y=11:call93:if j=0}180:if r=3}180
  660. m=data j{0,90/100,90/100*pi/180}:goto90
  661.  
  662. #200
  663. $a=$y
  664. $b=; Hectares;
  665. $c=; Hectograms;
  666. $d=; Hectoliters;
  667. $e=; Hectometers;
  668. $f=; Hectowatts;
  669. $g=; Horsepower;
  670. $h=; Horsepower (boiler);
  671. $i=; Horsepower-hours;
  672. $j=; Inches;
  673. $k=; Inches of mercury (32°F);
  674. $l=; Inches of water (60°F);
  675. $m=; Joules;
  676. $n=$z
  677. j=0:x=16:y=28:call92:if r=1}180:if r=2}220:if r=3}110
  678. on(j)g{180,202,203,204,205,206,207,208,209,210,211,212,213,220}:go110
  679.  
  680. #202:|hectares|
  681. $a=; Acres;
  682. $b=; Square feet;
  683. j=0:x=4:y=15:call93:if j=0}200:if r=3}200
  684. m=data j{0,2.471,1.076391E5}:goto90
  685.  
  686. #203:|hectograms|
  687. $w=; Grams;:m=100:goto90
  688.  
  689. #204:|hectoliters|
  690. $w=; Liters;:m=100:goto90
  691.  
  692. #205:|hectometers|
  693. $w=; Meters;:m=100:goto90
  694.  
  695. #206:|hectowatts|
  696. $w=; Watts;:m=100:goto90
  697.  
  698. #207:|horsepower|
  699. $a=; B.T.U./hr.;
  700. $b=; Foot-lbs./min.;
  701. $c=; Foot-lbs./sec.;
  702. $d=; Horsepower (metric);
  703. $e=; Kg.-calories/min.;
  704. $f=; Kilowatts;
  705. $g=; Watts;
  706. j=0:x=9:y=23:call93:if j=0}200:if r=3}200
  707. m=data j{0,2546.136,33000,550,1.01427,10.6979,.745702,745.702}:goto90
  708.  
  709. #208:|horsepower (boiler)|
  710. $a=; B.T.U./hr.;
  711. $b=; Kilowatts;
  712. j=0:x=4:y=14:call93:if j=0}200:if r=3}200
  713. m=data j{0,33445.7,9.8095}:goto90
  714.  
  715. #209:|horsepower-hrs|
  716. $a=; B.T.U.;
  717. $b=; Foot-pounds;
  718. $c=; Joules;
  719. $d=; Kilogram-calories;
  720. $e=; Kilogram-meters;
  721. $f=; Kilowatt-hours;
  722. j=0:x=8:y=21:call93:if j=0}200:if r=3}200
  723. m=data j{0,2546.136,1980002,2684520,641.616,2.73745E5,.745702}:goto90
  724.  
  725. #210:|inches|
  726. $a=; Centimeters;
  727. $b=; Millimeters;
  728. j=0:x=4:y=15:call93:if j=0}200:if r=3}200
  729. m=data j{0,2.54,25.4}:goto90
  730.  
  731. #211:|inches of mercury|
  732. $a=; Atmospheres;
  733. $b=; Feet of water (60°F);
  734. $c=; Kgs./sq.meter;
  735. $d=; Lbs./sq.ft.;
  736. $e=; Lbs./sq.inch;
  737. j=0:x=7:y=24:call93:if j=0}200:if r=3}200
  738. m=data j{0,.033421,1.132957,345.316,70.7262,.491154}:goto90
  739.  
  740. #212:|inches of water|
  741. $a=; Atmospheres;
  742. $b=; Inches of mercury (32°F);
  743. $c=; Kgs./sq.meter;
  744. $d=; Ounces/sq.inch;
  745. $e=; Lbs./sq.ft.;
  746. $f=; Lbs./sq.inch;
  747. j=0:x=8:y=28:call93:if j=0}200:if r=3}200
  748. m=data j{0,.002458,.0735539,25.3993,.57802,5.20218,.0361263}:goto90
  749.  
  750. #213:|joules|
  751. $a=; B.T.U.;
  752. $b=; Calories;
  753. $c=; Foot-pounds;
  754. $d=; Hoursepower-hours;
  755. $e=; Kilogram-calories;
  756. $f=; Watt-hours;
  757. j=0:x=8:y=21:call93:if j=0}200:if r=3}200
  758. m=data j{0,9.48452E-4,1/4.184,.737561,3.725061E-7,2.38662E-4,2.77777778E-4}:goto90
  759.  
  760. #220
  761. $a=$y
  762. $b=; Kilograms;
  763. $c=; Kilogram-calories;
  764. $d=; Kilogram-cal./min.;
  765. $e=; Kilograms/meter;
  766. $f=; Kilograms/sq.centimeter;
  767. $g=; Kilograms/sq.meter;
  768. $h=; Kiloliters;
  769. $i=; Kilometers;
  770. $j=; Kilometers/hr.;
  771. $k=; Kilowatts;
  772. $l=; Kilowatt-hours;
  773. $m=; Knots;
  774. $n=; Liters;
  775. $o=; Liters/min.;
  776. $p=$z
  777. j=0:x=18:y=27:call92:if r=1}200:if r=2}240:if r=3}110
  778. on(j)g{200,222,223,224,225,227,226,228,229,230,232,233,236,234,235,240}
  779. go110
  780.  
  781. #222:|kilograms|
  782. $a=; Dynes;
  783. $b=; Pounds;
  784. $c=; Pounds (troy);
  785. $d=; Tons (short);
  786. $e=; Grams;
  787. j=0:x=7:y=17:call93:if j=0}220:if r=3}220
  788. m=data j{0,980665,2.2046226,2.6792289,.0011023113,1000}:goto90
  789.  
  790. #223:|kilogram-calories|
  791. $a=; B.T.U;
  792. $b=; Foot-pounds;
  793. $c=; Horsepower-hrs.;
  794. $d=; Kilowatt-hours;
  795. $e=; Kilogram-meters;
  796. j=0:x=7:y=19:call93:if j=0}220:if r=3}220
  797. m=data j{0,3.968254,3085.9626,.0015585,.0011637,427.263}:goto90
  798.  
  799. #224:|kilogram-cal/min|
  800. $a=; Foot-pounds/sec.;
  801. $b=; Horsepower;
  802. $c=; Kilowatts;
  803. j=0:x=5:y=20:call93:if j=0}220:if r=3}220
  804. m=data j{0,51.4327,.09351,.0697333}:goto90
  805.  
  806. #225:|kilograms/meter|
  807. $w=; Pounds/foot;:m=.671969:goto90
  808.  
  809. #226:|kilograms/sq meter|
  810. $a=; Atmospheres;
  811. $b=; Feet of water (60°F);
  812. $c=; Inches of mercury (32°F);
  813. $d=; Pounds/sq.foot;
  814. $e=; Pounds/sq.inch;
  815. j=0:x=7:y=28:call93:if j=0}220:if r=3}220
  816. m=data j{0,9.678387E-5,.003280937,.002895898,.20481614,.0014223343}:goto90
  817.  
  818. #227:|kilograms/sq centimeter|
  819. $w=; Pounds/sq.inch;:m=14.223343:goto90
  820.  
  821. #228:|kiloliters|
  822. $a=; Gallons;
  823. $b=; Liters;
  824. j=0:x=4:y=11:call93:if j=0}220:if r=3}220
  825. m=data j{0,264.1794,m=1E3}:goto90
  826.  
  827. #229:|kilometers|
  828. $a=; Centimeters;
  829. $b=; Feet;
  830. $c=; Meters;
  831. $d=; Miles;
  832. $e=; Nautical miles;
  833. $f=; Yards;
  834. j=0:x=8:y=18:call93:if j=0}220:if r=3}220
  835. m=data j{0,1E5,3280.8399,1E3,.62137119,.5399568,1093.6133}:goto90
  836.  
  837. #230:|kilometers/hr|
  838. $a=; Centimeters/sec.;
  839. $b=; Feet/min.;
  840. $c=; Feet/sec.;
  841. $d=; Knots;
  842. $e=; Meters/min.;
  843. $f=; Miles/hour;
  844. j=0:x=8:y=20:call93:if j=0}220:if r=3}220
  845. m=data j{0,27.777778,54.680665,.9113444,.5399568,16.6666667,.62137119}
  846. goto90
  847.  
  848. #232:|kilowatts|
  849. $a=; B.T.U./min.;
  850. $b=; B.T.U./hour;
  851. $c=; Foot-lbs./hour;
  852. $d=; Foot-lbs./min.;
  853. $e=; Foot-lbs./sec.;
  854. $f=; Horsepower;
  855. $g=; Kilogram-cal./min.;
  856. $h=; Kilogram-meters/hr.;
  857. $i=; Watts;
  858. j=0:x=11:y=23:call93:if j=0}220:if r=3}220
  859. m=data j{0,56.9071,3414.426,2655220,44253.662,737.561,1.34102,
  860. 14.34035,367098,1000,}
  861. goto90
  862.  
  863. #233:|kilowatt-hrs|
  864. $a=; B.T.U.;
  865. $b=; Foot-pounds;
  866. $c=; Horsepower-hours;
  867. $d=; Joules;
  868. $e=; Kilogram-calories;
  869. $f=; Kilogram-meters;
  870. j=0:x=8:y=21:call93:if j=0}220:if r=3}220
  871. m=data j{0,3414.426,2655220,1.34102,3.6E6,860.42,367098}:goto90
  872.  
  873. #234:|liters|
  874. $a=; Cubic centimeters;
  875. $b=; Cubic feet;
  876. $c=; Cubic inches;
  877. $d=; Cubic meters;
  878. $e=; Cubic yards;
  879. $f=; Gallons;
  880. $g=; Pecks;
  881. $h=; Pints (dry);
  882. $i=; Pints (liq.);
  883. $j=; Quarts (dry);
  884. $k=; Quarts (liq.);
  885. j=0:x=13:y=21:call93:if j=0}220:if r=3}220
  886. m=data j{0,1E3,.03531566,61.025435,.001,.001307782,.2641794,.1135136,
  887. 1.816217,2.113436,.9081084,1.056718}:goto90
  888.  
  889. #235:|liters/min|
  890. $a=; Cubic ft./sec.;
  891. $b=; Gallons/sec.;
  892. j=0:x=4:y=18:call93:if j=0}220:if r=3}220
  893. m=data j{0,5.885943E-4,.00440299}:goto90
  894.  
  895. #236:|knots|
  896. $a=; Feet/second;
  897. $b=; Kilometers/hour;
  898. $c=; Meters/second;
  899. $d=; Miles/hour;
  900. j=0:x=6:y=19:call93:if j=0}220:if r=3}220
  901. m=data j{0,1.68781,1.852,.51444445,1.1507794}:goto90
  902.  
  903. #240
  904. $a=$y
  905. $b=; Meters;
  906. $c=; Meters/min.;
  907. $d=; Meters/sec.;
  908. $e=; Microns;
  909. $f=; Miles;
  910. $g=; Miles/hour;
  911. $h=; Miles/min.;
  912. $i=; Milliers;
  913. $j=; Milligrams;
  914. $k=; Milliliters;
  915. $l=; Millimeters;
  916. $m=; Milligrams/liter;
  917. $n=; Million gals./day;
  918. $o=; Miner's inches;
  919. $p=; Minims;
  920. $q=; Minims (Imp.);
  921. $r=; Minutes (angle);
  922. $s=; Nautical miles;
  923. $t=$z
  924. j=0:x=22:y=21:call92:if r=1}220:if r=2}260:if r=3}110
  925. on(j)g{220,242,243,244,245,246,247,248,249,250,251,252,253,254,255,257,258,
  926. 256,259,260}:go110
  927.  
  928. #242:|meters|
  929. $a=; Centimeters;
  930. $b=; Feet;
  931. $c=; Inches;
  932. $d=; Kilometers;
  933. $e=; Millimeters;
  934. $f=; Yards;
  935. j=0:x=8:y=15:call93:if j=0}240:if r=3}240
  936. m=data j{0,100,3.28084,39.370079,.001,1000,1.0936133}:goto90
  937.  
  938. #243:|meters/min|
  939. $a=; Centimeters/sec.;
  940. $b=; Feet/min.;
  941. $c=; Feet/sec.;
  942. $d=; Kilometers/hr.;
  943. $e=; Miles/hour;
  944. j=0:x=7:y=20:call93:if j=0}240:if r=3}240
  945. m=data j{0,1.66666667,3.28084,.0546807,.06,.03728227}:goto90
  946.  
  947. #244:|meters/sec|
  948. $a=; Feet/min.;
  949. $b=; Feet/sec.;
  950. $c=; Kilometers/hr.;
  951. $d=; Kilometers/min.;
  952. $e=; Miles/hour;
  953. $f=; Miles/min.;
  954. j=0:x=8:y=19:call93:if j=0}240:if r=3}240
  955. m=data j{0,196.85039,3.2808398,3.6,.06,2.2369363,.03728227}:goto90
  956.  
  957. #245:|microns|
  958. $a=; Inches;
  959. $b=; Meters;
  960. $c=; Millimeters;
  961. j=0:x=5:y=15:call93:if j=0}240:if r=3}240
  962. m=data j{0,3.9370079E-5,1E-6,1E-3}:goto90
  963.  
  964. #246:|miles|
  965. $a=; Centimeters;
  966. $b=; Feet;
  967. $c=; Furlongs;
  968. $d=; Kilometers;
  969. $e=; Nautical miles;
  970. $f=; Yards;
  971. j=0:x=8:y=18:call93:if j=0}240:if r=3}240
  972. m=data j{0,160934.4,5280,8,1.609344,.8689763,1760}:goto90
  973.  
  974. #247:|miles/hr|
  975. $a=; Centimeters/sec.;
  976. $b=; Feet/min.;
  977. $c=; Feet/sec.;
  978. $d=; Kilometers/hr.;
  979. $e=; Knots;
  980. $f=; Meters/min.;
  981. j=0:x=8:y=20:call93:if j=0}240:if r=3}240
  982. m=data j{0,44.704,88,1.4666667,1.609344,.8689763,26.8224}:goto90
  983.  
  984. #248:|miles/min|
  985. $a=; Centimeters/sec.;
  986. $b=; Feet/sec.;
  987. $c=; Kilometers/min.;
  988. $d=; Miles/hour;
  989. j=0:x=6:y=20:call93:if j=0}240:if r=3}240
  990. m=data j{0,2682.24,88,1.609344,60}:goto90
  991.  
  992. #249:|milliers|
  993. $w=; Kilograms;:m=1000:goto90
  994.  
  995. #250:|milligrams|
  996. $w=; Grams;:m=.001:goto90
  997.  
  998. #251:|milliliters|
  999. $w=; Liters;:m=.001:goto90
  1000.  
  1001. #252:|millimeters|
  1002. $a=; Centimeters;
  1003. $b=; Inches;
  1004. $c=; Mils;
  1005. j=0:x=5:y=15:call93:if j=0}240:if r=3}240
  1006. m=data j{0,.1,1/25.4,1/.0254}:goto90
  1007.  
  1008. #253:|milligrams/liter|
  1009. $w=; Parts/million;:m=1:goto90
  1010.  
  1011. #254:|million gal/day|
  1012. $w=; Cubic ft./sec.;:m=1.54723:goto90
  1013.  
  1014. #255:|miners inches|
  1015. $w=; Cubic ft./min.;:m=1.5:goto90
  1016.  
  1017. #256:|minutes (angle)|
  1018. $w=; Radians;:m=2.909E-4:goto90
  1019.  
  1020. #257:|minims|
  1021. $a=; Cubic inches;
  1022. $b=; Fluidrams;
  1023. $c=; Milliliters;
  1024. j=0:x=5:y=16:call93:if j=0}240:if r=3}240
  1025. m=data j{0,.003759,1/60,.06161}:goto90
  1026.  
  1027. #258:|minims imp|
  1028. $a=; Cubic centimeters;
  1029. $b=; Cubic inches;
  1030. j=0:x=4:y=21:call93:if j=0}240:if r=3}240
  1031. m=data j{0,.059194,.003612}:goto90
  1032.  
  1033. #259:|nautical miles|
  1034. $a=; Feet;
  1035. $a=; Miles;
  1036. $b=; Kilometers;
  1037. j=0:x=5:y=14:call93:if j=0}240:if r=3}240
  1038. m=data j{0,6076.115,1.1507794,1.852}:goto90
  1039.  
  1040. #260
  1041. $a=$y
  1042. $b=; Ounces;
  1043. $c=; Ounces (troy);
  1044. $d=; Ounces (fluid);
  1045. $e=; Ounces/sq.inch;
  1046. $f=; Parts/million;
  1047. $g=; Pecks;
  1048. $h=; Pecks (Imp.);
  1049. $i=; Pennyweights (troy);
  1050. $j=; Pounds;
  1051. $k=; Pounds (troy);
  1052. $l=; Pounds of water;
  1053. $m=; Pounds of water/min.;
  1054. $n=; Pounds/cubic foot;
  1055. $o=; Pounds/cubic inch;
  1056. $p=; Pounds/foot;
  1057. $q=; Pounds/inch;
  1058. $r=; Pounds/sq.foot;
  1059. $s=; Pounds/sq.inch;
  1060. $t=$z
  1061. j=0:x=22:y=24:call92:if r=1}240:if r=2}280:if r=3}110
  1062. on(j)g{240,262,263,264,265,266,279,278,267,268,269,270,271,272,273,274,275,
  1063. 276,277,280}:go110
  1064.  
  1065. #262:|ounces|
  1066. $a=; Drams;
  1067. $b=; Grains;
  1068. $c=; Grams;
  1069. $d=; Ounces (troy);
  1070. $e=; Pounds;
  1071. $f=; Tons (long);
  1072. $g=; Tons (metric);
  1073. j=0:x=9:y=17:call93:if j=0}260:if r=3}260
  1074. m=data j{0,16,437.5,28.349527,.9115,.0625,2.79E-5,2.835E-5}:goto90
  1075.  
  1076. #263:|ounces (troy)|
  1077. $a=; Grains;
  1078. $b=; Grams;
  1079. $c=; Ounces (avoir.);
  1080. $d=; Pennyweights (troy);
  1081. $e=; Pounds (troy);
  1082. j=0:x=7:y=23:call93:if j=0}260:if r=3}260
  1083. m=data j{0,480,31.103481,1.09714,20,.08333333}:goto90
  1084.  
  1085. #264:|ounces (fluid)|
  1086. $a=; Cubic inches;
  1087. $b=; Liters;
  1088. j=0:x=4:y=16:call93:if j=0}260:if r=3}260
  1089. m=data j{0,1.8046875,.029572702}:goto90
  1090.  
  1091. #265:|ounces/sq in|
  1092. $a=; Feet of mercury (32°F);
  1093. $b=; Feet of water (60°F);
  1094. $c=; Inches of mercury (32°F);
  1095. $d=; Lbs./sq.inch;
  1096. j=0:x=6:y=28:call93:if j=0}260:if r=3}260
  1097. m=data j{0,.010604,.14417,.12725,.0625}:goto90
  1098.  
  1099. #266:|parts/million|
  1100. $a=; Grains/gallon;
  1101. $b=; Grains/Imp. gal.;
  1102. $c=; Lbs./million gal.;
  1103. j=0:x=5:y=21:call93:if j=0}260:if r=3}260
  1104. m=data j{0,.0584,.07016,8.345}:goto90
  1105.  
  1106. #267:|pennyweights (troy)|
  1107. $a=; Grains;
  1108. $b=; Grams;
  1109. $c=; Ounces (troy);
  1110. $d=; Pounds (troy);
  1111. j=0:x=6:y=17:call93:if j=0}260:if r=3}260
  1112. m=data j{0,24,1.555174,.05,.004166667}:goto90
  1113.  
  1114. #268:|pounds|
  1115. $a=; Drams;
  1116. $b=; Grains;
  1117. $c=; Grams;
  1118. $d=; Kilograms;
  1119. $e=; Ounces;
  1120. $f=; Ounces (troy);
  1121. $g=; Pounds (troy);
  1122. $h=; Quintals;
  1123. $i=; Tons (short);
  1124. j=0:x=11:y=17:call93:if j=0}260:if r=3}260
  1125. m=data j{0,256,7000,453.5924,.4535924,16,14.5833,1.21528,.004536,.0005}
  1126. goto90
  1127.  
  1128. #269:|pounds (troy)|
  1129. $a=; Grains;
  1130. $b=; Grams;
  1131. $c=; Ounces (troy);
  1132. $d=; Ounces (avoir.);
  1133. $e=; Pennyweights (troy);
  1134. $f=; Pounds (avoir.);
  1135. $g=; Tons (long);
  1136. $h=; Tons (short);
  1137. $i=; Tons (metric);
  1138. j=0:x=11:y=23:call93:if j=0}260:if r=3}260
  1139. m=data j{0,5760,373.24177,12,13.1657,240,.822857,3.6735E-4,4.1143E-4,
  1140. 3.7324E-4}:goto90
  1141.  
  1142. #270:|pounds of water|
  1143. $a=; Cubic feet;
  1144. $b=; Cubic inches;
  1145. $c=; Gallons;
  1146. j=0:x=5:y=16:call93:if j=0}260:if r=3}260
  1147. m=data j{0,.0160189,27.6807,.11983}:goto90
  1148.  
  1149. #271:|pounds of water/min|
  1150. $w=; Cubic ft./sec.;:m=2.67E-4:goto90
  1151.  
  1152. #272:|lbs/cu ft|
  1153. $a=; Grams/cubic. cm.;
  1154. $b=; Kgs./cubic meter;
  1155. $c=; Lbs./cubic inch;
  1156. j=0:x=5:y=20:call93:if j=0}260:if r=3}260
  1157. m=data j{0,.01602,16.02,5.787037E-4}:goto90
  1158.  
  1159. #273:|lbs/cu in|
  1160. $a=; Grams/cubic. cm.;
  1161. $b=; Kgs./cubic meter;
  1162. $c=; Lbs./cubic foot;
  1163. j=0:x=5:y=20:call93:if j=0}260:if r=3}260
  1164. m=data j{0,27.68,27680,1728}:goto90
  1165.  
  1166. #274:|lbs/ft|
  1167. $w=; Kgs./meter;:m=1.488:goto90
  1168.  
  1169. #275:|lbs/in|
  1170. $w=; Grams/centimeter;:m=178.6:goto90
  1171.  
  1172. #276:|lbs/sq ft|
  1173. $a=; Feet of water (60°F);
  1174. $b=; Feet of mercury (32°F);
  1175. $c=; centimeters of mercury (0°C);
  1176. $d=; Kilograms/sq.meter;
  1177. $e=; Pounds/sq.inch;
  1178. j=0:x=7:y=32:call93:if j=0}260:if r=3}260
  1179. m=data j{0,.016019,.0011782,.035913,4.88242,.006944445}:goto90
  1180.  
  1181. #277:|lbs/sq in|
  1182. $a=; Atmospheres;
  1183. $b=; Feet of water (60°F);
  1184. $c=; Inches of mercury (32°F);
  1185. $d=; Kilograms/sq.meter;
  1186. j=0:x=6:y=28:call93:if j=0}260:if r=3}260
  1187. m=data j{0,.068046,2.3067,2.036,703.069}:goto90
  1188.  
  1189. #278:|pecks (imp)|
  1190. $a=; Cubic inches;
  1191. $b=; Gallons;
  1192. $c=; Liters;
  1193. j=0:x=5:y=16:call93:if j=0}260:if r=3}260
  1194. m=data j{0,554.84,2,9.09}:goto90
  1195.  
  1196. #279:|pecks|
  1197. $a=; Cubic inches;
  1198. $b=; Gallons;
  1199. $c=; Liters;
  1200. $d=; Quarts;
  1201. j=0:x=6:y=16:call93:if j=0}260:if r=3}260
  1202. m=data j{0,537.605,2,8.809,8}:goto90
  1203.  
  1204. #280
  1205. $a=$y
  1206. $b=; Quadrants (angle);
  1207. $c=; Quarts (dry);
  1208. $d=; Quarts (liq.);
  1209. $e=; Quarts (Imperial);
  1210. $f=; Quintal (metric);
  1211. $g=; Quires;
  1212. $h=; Radians;
  1213. $i=; Radians/sec.;
  1214. $j=; Reams;
  1215. $k=; Revolutions;
  1216. $l=; Revolutions/min.;
  1217. $m=; Revolutions/sec.;
  1218. $n=; Rods;
  1219. $o=$z
  1220. j=0:x=17:y=21:call92:if r=1}260:if r=2}300:if r=3}110
  1221. on(j)g{260,282,283,284,297,285,286,287,288,290,291,292,294,296,300}:go110
  1222.  
  1223. #282:|Quadrants (angle)|
  1224. $a=; Degrees;
  1225. $b=; Grads;
  1226. $c=; Minutes;
  1227. $d=; Radians;
  1228. j=0:x=6:y=11:call93:if j=0}280:if r=3}280
  1229. m=data j{0,90,100,5400,1.571}:goto90
  1230.  
  1231. #283:|quarts (dry)|
  1232. $a=; Cubic inches;
  1233. $b=; Liters;
  1234. $c=; Pints;
  1235. j=0:x=5:y=16:call93:if j=0}280:if r=3}280
  1236. m=data j{0,67.2006,1.10119,2}:goto90
  1237.  
  1238. #284:|quarts liq|
  1239. $a=; Cubic inches;
  1240. $b=; Liters;
  1241. $c=; Pints;
  1242. j=0:x=5:y=16:call93:if j=0}280:if r=3}280
  1243. m=data j{0,57.75,.946326,2}:goto90
  1244.  
  1245. #285:|Quintal (metric)|
  1246. $w=; Pounds;:m=220.46:goto90
  1247.  
  1248. #286:|quires|
  1249. $w=; Sheets;:m=25:goto90
  1250.  
  1251. #287:|radians|
  1252. $a=; Degrees;
  1253. $b=; Minutes;
  1254. $c=; Quadrants;
  1255. j=0:x=5:y=13:call93:if j=0}280:if r=3}280
  1256. m=data j{0,57.2958,3437.747,.63662}:goto90
  1257.  
  1258. #288:|radians/sec|
  1259. $a=; Degrees/sec.;
  1260. $b=; Revolutions/sec.;
  1261. $c=; Revolutions/min.;
  1262. j=0:x=5:y=20:call93:if j=0}280:if r=3}280
  1263. m=data j{0,57.2958,.159155,9.5493}:goto90
  1264.  
  1265. #290:|reams|
  1266. $a=; Quires;
  1267. $b=; Sheets;
  1268. j=0:x=4:y=10:call93:if j=0}280:if r=3}280
  1269. m=data j{0,20,500}:goto90
  1270.  
  1271. #291:|revolutions|
  1272. $a=; Degrees;
  1273. $b=; Quadrants;
  1274. $c=; Radians;
  1275. j=0:x=5:y=13:call93:if j=0}280:if r=3}280
  1276. m=data j{0,360,4,6.283185}:goto90
  1277.  
  1278. #292:|rev/min|
  1279. $a=; Degrees/sec.;
  1280. $b=; Radians/sec.;
  1281. $c=; Revolutions/min.;
  1282. j=0:x=5:y=20:call93:if j=0}280:if r=3}280
  1283. m=data j{0,6,.1047,.01666667}:goto90
  1284.  
  1285. #294:|rev/sec|
  1286. $a=; Degrees/sec.;
  1287. $b=; Radians/sec.;
  1288. $c=; Revolutions/min.;
  1289. j=0:x=5:y=20:call93:if j=0}280:if r=3}280
  1290. m=data j{0,360,6.283185,60}:goto90
  1291.  
  1292. #296:|rods|
  1293. $a=; Feet;
  1294. $b=; Kilometers;
  1295. $c=; Meters;
  1296. $d=; Miles;
  1297. $e=; Yards;
  1298. j=0:x=7:y=14:call93:if j=0}280:if r=3}280
  1299. m=data j{0,16.5,.0050292,5.0292,1/320,5.5}:goto90
  1300.  
  1301. #297:|quarts (imp)|
  1302. $a=; Cubic inches;
  1303. $b=; Gills;
  1304. $c=; Liters;
  1305. $d=; Pints;
  1306. j=0:x=6:y=16:call93:if j=0}280:if r=3}280
  1307. m=data j{0,69.355,8,1.136,2}:goto90
  1308.  
  1309. #300
  1310. $a=$y
  1311. $b=; Seconds (angle);
  1312. $c=; Square centimeters;
  1313. $d=; Square feet;
  1314. $e=; Square inches;
  1315. $f=; Square kilometers;
  1316. $g=; Square meters;
  1317. $h=; Square miles;
  1318. $i=; Square millimeters;
  1319. $j=; Square rods;
  1320. $k=; Square yards;
  1321. $l=; Steres;
  1322. $m=$z
  1323. j=0:x=15:y=22:call92:if r=1}280:if r=2}320:if r=3}110
  1324. on(j)g{280,303,304,305,306,307,308,309,310,313,311,312,320}:go110
  1325.  
  1326. #303:|seconds (angle)|
  1327. $a=; Degrees;
  1328. $b=; Minutes (angle);
  1329. $c=; Radians;
  1330. j=0:x=5:y=19:call93:if j=0}300:if r=3}300
  1331. m=data j{0,1/3600,1/60,4.848137E-6}:goto90
  1332.  
  1333. #304:|sq centimeters|
  1334. $a=; Square feet;
  1335. $b=; Square inches;
  1336. $c=; Square meters;
  1337. $d=; Square millimeters;
  1338. j=0:x=6:y=22:call93:if j=0}300:if r=3}300
  1339. m=data j{0,.001076391,.155,1E4,100}:goto90
  1340.  
  1341. #305:|sq ft|
  1342. $a=; Acres;
  1343. $b=; Square centimeters;
  1344. $c=; Square inches;
  1345. $d=; Square meters;
  1346. $e=; Square miles;
  1347. $f=; Square yards;
  1348. j=0:x=8:y=22:call93:if j=0}300:if r=3}300
  1349. m=data j{0,2.295684E-5,929.03,144,.092903,3.587E-8,1/9}:goto90
  1350.  
  1351. #306:|sq in|
  1352. $a=; Square centimeters;
  1353. $b=; Square feet;
  1354. $c=; Square millimeters;
  1355. j=0:x=5:y=22:call93:if j=0}300:if r=3}300
  1356. m=data j{0,6.4516,1/144,645.16}:goto90
  1357.  
  1358. #307:|sq kilometers|
  1359. $a=; Acres;
  1360. $b=; Square feet;
  1361. $c=; Square meters;
  1362. $d=; Square miles;
  1363. $e=; Square yards;
  1364. j=0:x=7:y=17:call93:if j=0}300:if r=3}300
  1365. m=data j{0,247.105,1.07639E7,1E7,.386102,1.196E6}:goto90
  1366.  
  1367. #308:|sq meters|
  1368. $a=; Acres;
  1369. $b=; Square feet;
  1370. $c=; Square miles;
  1371. $d=; Square yards;
  1372. j=0:x=6:y=16:call93:if j=0}300:if r=3}300
  1373. m=data j{0,.000247105,10.7639,3.86102E-7,1.196}:goto90
  1374.  
  1375. #309:|sq miles|
  1376. $a=; Acres;
  1377. $b=; Square feet;
  1378. $c=; Square kilometers;
  1379. $d=; Square yards;
  1380. j=0:x=6:y=21:call93:if j=0}300:if r=3}300
  1381. m=data j{0,640,27878400,2.59,3097600}:goto90
  1382.  
  1383. #310:|sq millimeters|
  1384. $a=; Square centimeters;
  1385. $b=; Square inches;
  1386. j=0:x=4:y=22:call93:if j=0}300:if r=3}300
  1387. m=data j{0,.01,.00155}:goto90
  1388.  
  1389. #311:|sq yards|
  1390. $a=; Acres;
  1391. $b=; Square feet;
  1392. $c=; Square meters;
  1393. $d=; Square miles;
  1394. $e=; Square rods;
  1395. j=0:x=7:y=17:call93:if j=0}300:if r=3}300
  1396. m=data j{0,.000206612,9,.836127,3.2283E-7,.033058}:goto90
  1397.  
  1398. #312:|steres|
  1399. $a=; Cubic meters;
  1400. $b=; Cubic yards;
  1401. $c=; Decasteres;
  1402. $d=; Decisteres;
  1403. j=0:x=6:y=16:call93:if j=0}300:if r=3}300
  1404. m=data j{0,1,1.31,.1,10}:goto90
  1405.  
  1406. #313:|sq rods|
  1407. $a=; Acres;
  1408. $b=; Square feet;
  1409. $c=; Square meters;
  1410. $d=; Square yards;
  1411. j=0:x=6:y=17:call93:if j=0}300:if r=3}300
  1412. m=data j{0,.00625,272.25,25.29285,30.25}:goto90
  1413.  
  1414. #320
  1415. $a=$y
  1416. $b=; Temp. Celsius;
  1417. $c=; Temp. Fahrenheit;
  1418. $d=; Temp. Kelvin;
  1419. $e=; Tons (long);
  1420. $f=; Tons (metric);
  1421. $g=; Tons (short);
  1422. $h=; Tons of water/24 hrs.;
  1423. $i=; Watts;
  1424. $j=; Watt-hours;
  1425. $k=; Yards;
  1426. j=0:x=13:y=25:call92:if r=1}300:if r=3}110
  1427. on(j)g{300,322,323,324,325,326,327,328,329,330,331}:go110
  1428.  
  1429. #322:|celsius|
  1430. $a=; Fahrenheit;
  1431. $b=; Kelvin;
  1432. j=0:x=4:y=14:call93:if j=0}320:if r=3}320
  1433. m=0:t=j+2:goto90
  1434.  
  1435. #323:|fahrenheit|
  1436. $a=; Celsius;
  1437. $b=; Kelvin;
  1438. j=0:x=4:y=11:call93:if j=0}320:if r=3}320
  1439. m=0:t=j:goto90
  1440.  
  1441. #324:|kelvin|
  1442. $a=; Celsius;
  1443. $b=; Fahrenheit;
  1444. j=0:x=4:y=14:call93:if j=0}320:if r=3}320
  1445. m=0:t=j+4:goto90
  1446.  
  1447. #325:|tons (long)|
  1448. $a=; Kilograms;
  1449. $b=; Pounds;
  1450. $c=; Tons (metric);
  1451. $d=; Tons (short);
  1452. j=0:x=6:y=17:call93:if j=0}320:if r=3}320
  1453. m=data j{0,1016.047,2240,1.015873,1.12}:goto90
  1454.  
  1455. #326:|tons (metric)|
  1456. $a=; Kilograms;
  1457. $b=; Pounds;
  1458. $c=; Tons (long);
  1459. $d=; Tons (short);
  1460. j=0:x=6:y=16:call93:if j=0}320:if r=3}320
  1461. m=data j{0,1000,22046.2,.983929,1.1025}:goto90
  1462.  
  1463. #327:|tons (short)|
  1464. $a=; Kilograms;
  1465. $b=; Pounds;
  1466. $c=; Pounds (troy);
  1467. $d=; Ounces;
  1468. $e=; Ounces (troy);
  1469. $f=; Tons (long);
  1470. $g=; Tons (metric);
  1471. j=0:x=9:y=17:call93:if j=0}320:if r=3}320
  1472. m=data j{0,907.18486,2000,2430.56,32000,29166.66,.89287,.90718}:goto90
  1473.  
  1474. #328:|tons of water/24 hrs|
  1475. $a=; Cubic feet/hr.;
  1476. $b=; Gallons/min.;
  1477. $c=; Pounds water/hr.;
  1478. j=0:x=5:y=20:call93:if j=0}320:if r=3}320
  1479. m=data j{0,1.3349,.16643,83.333}:goto90
  1480.  
  1481. #329:|watts|
  1482. $a=; B.T.U./min.;
  1483. $b=; B.T.U./hour;
  1484. $c=; Foot-pounds/min.;
  1485. $d=; Foot-pounds/sec.;
  1486. $e=; Horsepower;
  1487. $f=; Kg.-calories/min.;
  1488. $g=; Kilowatts;
  1489. j=0:x=9:y=21:call93:if j=0}320:if r=3}320
  1490. m=data j{0,.0568833,3.41443,44.2537,.737562,.001341,.014197,.001}:goto90
  1491.  
  1492. #330:|watt-hrs|
  1493. $a=; B.T.U.;
  1494. $b=; Foot-pounds;
  1495. $c=; Horsepower-hours;
  1496. $d=; Kg.-calories;
  1497. $e=; Kg.-meters;
  1498. $f=; Kilowatt-hours;
  1499. j=0:x=8:y=20:call93:if j=0}320:if r=3}320
  1500. m=data j{0,3.41443,2655.22,.001341,.859184,367.098,.001}:goto90
  1501.  
  1502. #331:|yards|
  1503. $a=; Centimeters;
  1504. $b=; feet;
  1505. $c=; Inches;
  1506. $d=; Meters;
  1507. $e=; Rods;
  1508. j=0:x=7:y=15:call93:if j=0}320:if r=3}320
  1509. m=data j{0,91.44,3,36,.9144,1/5.5}:goto90
  1510.  
  1511. #400
  1512. i=mlin:if i>99}400
  1513. #401:k=kyck:if k<>0}402
  1514. I=MLOC:IF I>9999}}IF I<10079}406
  1515. #402:if k=13}405:if k=27}70
  1516. if k>64}}if k<91}}k=k+32:if k>96}}if k<123}409
  1517. goto401
  1518. #405:r=0:ret
  1519. #406:r=5:ret:|top bar|
  1520. #409:r=4:k=k-97:ret:|A to Z|
  1521.